object AddressEditor: TAddressEditor
  Left = 240
  Top = 64
  HelpContext = 14068
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Edit Address Entry'
  ClientHeight = 432
  ClientWidth = 610
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnBook: TPanel
    Left = 0
    Top = 33
    Width = 610
    Height = 352
    Align = alTop
    BevelOuter = bvNone
    BorderWidth = 3
    TabOrder = 0
    object Book: TPageControl
      Tag = 102
      Left = 3
      Top = 3
      Width = 604
      Height = 337
      ActivePage = tsGeneral
      Align = alTop
      RaggedRight = True
      TabOrder = 0
      object tsGeneral: TTabSheet
        Caption = 'General'
        object Label1: TLabel
          Left = 8
          Top = 20
          Width = 137
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = '&First name'
          FocusControl = eFirstName
        end
        object Label2: TLabel
          Left = 8
          Top = 46
          Width = 137
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = '&Middle name'
          FocusControl = eMiddleName
        end
        object lLastName: TLabel
          Left = 8
          Top = 72
          Width = 137
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = '&Last name'
          FocusControl = eLastName
        end
        object lDisplay: TLabel
          Left = 8
          Top = 124
          Width = 137
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = '&Display name as'
          FocusControl = cbPresentType
        end
        object lGroups: TLabel
          Left = 8
          Top = 200
          Width = 137
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = 'Gro&ups'
          FocusControl = eGroups
        end
        object lHandle: TLabel
          Left = 8
          Top = 98
          Width = 137
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = '&Nickname (Handle)'
          FocusControl = eHandle
        end
        object Label9: TLabel
          Left = 8
          Top = 174
          Width = 137
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = '&Gender'
          FocusControl = cbSex
        end
        object TLabel
          Left = 8
          Top = 160
          Width = 3
          Height = 13
        end
        object lEmail: TLabel
          Left = 8
          Top = 224
          Width = 441
          Height = 13
          AutoSize = False
          Caption = 'E-Mail address(es)'
          FocusControl = eMail
        end
        object Label3: TLabel
          Left = 8
          Top = 148
          Width = 136
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = 'Display name'
          FocusControl = ePresent
        end
        object eFirstName: TEdit
          Left = 152
          Top = 16
          Width = 289
          Height = 21
          TabOrder = 0
          OnChange = cbPresentTypeDropDown
        end
        object eMiddleName: TEdit
          Left = 152
          Top = 42
          Width = 289
          Height = 21
          TabOrder = 1
          OnChange = cbPresentTypeDropDown
        end
        object eLastName: TEdit
          Left = 152
          Top = 68
          Width = 289
          Height = 21
          TabOrder = 2
          OnChange = cbPresentTypeDropDown
        end
        object cbPresentType: TComboBox
          Left = 152
          Top = 120
          Width = 289
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 4
          Text = 'User-defined'
          OnChange = cbPresentTypeChange
          Items.Strings = (
            'User-defined'
            'Prefix First Middle Last, Suffix'
            'First Middle Last, Suffix'
            'Last, First Middle'
            'First Middle Last'
            'First Last')
        end
        object eGroups: TEdit
          Left = 152
          Top = 196
          Width = 265
          Height = 21
          TabOrder = 7
        end
        object bGroups: TButton
          Left = 421
          Top = 196
          Width = 22
          Height = 22
          Caption = '...'
          TabOrder = 8
          OnClick = bGroupsClick
        end
        object eHandle: TEdit
          Left = 152
          Top = 94
          Width = 289
          Height = 21
          TabOrder = 3
        end
        object cbSex: TComboBox
          Left = 152
          Top = 170
          Width = 289
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 6
          Items.Strings = (
            'Unspecified'
            'Male'
            'Female')
        end
        object gPhoto: TGroupBox
          Left = 456
          Top = 8
          Width = 136
          Height = 209
          Caption = '&Photo'
          PopupMenu = PhotoPopup
          TabOrder = 9
          object bChangePhoto: TButton
            Left = 16
            Top = 176
            Width = 105
            Height = 25
            Caption = 'Change...'
            TabOrder = 0
            OnClick = bChangePhotoClick
          end
        end
        object eMail: TMemo
          Left = 8
          Top = 240
          Width = 585
          Height = 57
          ScrollBars = ssVertical
          TabOrder = 10
          WordWrap = False
        end
        object ePresent: TEdit
          Left = 152
          Top = 144
          Width = 289
          Height = 21
          TabOrder = 5
          OnChange = ePresentChange
        end
      end
      object tsPersonal: TTabSheet
        Caption = 'Personal'
        object Label15: TLabel
          Left = 8
          Top = 284
          Width = 209
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = 'Personal &Web Homepage'
          FocusControl = eHomePage
        end
        object gbHomeAddr: TGroupBox
          Left = 288
          Top = 8
          Width = 305
          Height = 257
          Caption = '&Home location'
          TabOrder = 2
          object lHomeAddr: TLabel
            Left = 8
            Top = 16
            Width = 68
            Height = 13
            Caption = '&Street address'
            FocusControl = eHomeAddr
          end
          object Label10: TLabel
            Left = 8
            Top = 88
            Width = 17
            Height = 13
            Caption = '&City'
            FocusControl = eHomeCity
          end
          object Label12: TLabel
            Left = 8
            Top = 128
            Width = 78
            Height = 13
            Caption = 'State / &Province'
            FocusControl = eHomeState
          end
          object Label13: TLabel
            Left = 8
            Top = 168
            Width = 84
            Height = 13
            Caption = '&ZIP / Postal code'
            FocusControl = eHomeZIP
          end
          object Label14: TLabel
            Left = 8
            Top = 208
            Width = 36
            Height = 13
            Caption = 'Co&untry'
            FocusControl = eHomeCountry
          end
          object eHomeAddr: TMemo
            Left = 8
            Top = 32
            Width = 289
            Height = 49
            ScrollBars = ssVertical
            TabOrder = 0
          end
          object eHomeCity: TEdit
            Left = 8
            Top = 104
            Width = 289
            Height = 21
            TabOrder = 1
          end
          object eHomeState: TEdit
            Left = 8
            Top = 144
            Width = 289
            Height = 21
            TabOrder = 2
          end
          object eHomeZIP: TEdit
            Left = 8
            Top = 184
            Width = 289
            Height = 21
            TabOrder = 3
          end
          object eHomeCountry: TEdit
            Left = 8
            Top = 224
            Width = 289
            Height = 21
            TabOrder = 4
          end
        end
        object eHomePage: TEdit
          Left = 224
          Top = 280
          Width = 289
          Height = 21
          TabOrder = 3
        end
        object bHomeWeb: TButton
          Left = 520
          Top = 278
          Width = 75
          Height = 25
          Caption = '&Go'
          TabOrder = 4
          OnClick = bHomeWebClick
        end
        object gbPhones: TGroupBox
          Left = 8
          Top = 126
          Width = 273
          Height = 139
          Caption = '&Telephone numbers'
          TabOrder = 1
          object lHomePhone: TLabel
            Left = 8
            Top = 16
            Width = 27
            Height = 13
            Caption = '&Voice'
            FocusControl = eHomePhone
          end
          object lHomeFax: TLabel
            Left = 8
            Top = 56
            Width = 43
            Height = 13
            Caption = '&Facsimile'
            FocusControl = eHomeFax
          end
          object lHomeMobile: TLabel
            Left = 8
            Top = 94
            Width = 61
            Height = 13
            Caption = 'C&ar / Cellular'
            FocusControl = eHomeMobile
          end
          object eHomePhone: TEdit
            Left = 8
            Top = 32
            Width = 257
            Height = 21
            TabOrder = 0
          end
          object eHomeFax: TEdit
            Left = 8
            Top = 70
            Width = 257
            Height = 21
            TabOrder = 1
          end
          object eHomeMobile: TEdit
            Left = 8
            Top = 108
            Width = 257
            Height = 21
            TabOrder = 2
          end
        end
        object gbPersonal: TGroupBox
          Left = 8
          Top = 8
          Width = 273
          Height = 114
          Caption = 'Personal &information'
          TabOrder = 0
          object lNamePrefix: TLabel
            Left = 8
            Top = 20
            Width = 188
            Height = 13
            AutoSize = False
            Caption = '&Name Prefix (Mr, Ms)'
          end
          object lNameSuffix: TLabel
            Left = 8
            Top = 44
            Width = 188
            Height = 13
            AutoSize = False
            Caption = 'Name Suffi&x (III, Jr.)'
          end
          object lBirthdayDMY: TLabel
            Left = 74
            Top = 88
            Width = 64
            Height = 13
            Caption = '(dd/mm/yyyy)'
            Enabled = False
          end
          object eNamePrefix: TEdit
            Left = 200
            Top = 16
            Width = 65
            Height = 21
            TabOrder = 0
            OnChange = cbPresentTypeDropDown
          end
          object eNameSuffix: TEdit
            Left = 200
            Top = 40
            Width = 65
            Height = 21
            TabOrder = 1
            OnChange = cbPresentTypeDropDown
          end
          object meBirthday: TMaskEdit
            Left = 8
            Top = 84
            Width = 61
            Height = 21
            EditMask = '00/00/0000'
            MaxLength = 10
            TabOrder = 2
            Text = '  .  .    '
          end
          object cbBirthday: TCheckBox
            Left = 8
            Top = 64
            Width = 185
            Height = 17
            Caption = 'Birthday'
            TabOrder = 3
            OnClick = cbBirthdayClick
          end
        end
      end
      object Business: TTabSheet
        Caption = 'Business'
        object Label31: TLabel
          Left = 8
          Top = 284
          Width = 209
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = 'Business &Web Homepage'
          FocusControl = eHomePage
        end
        object gbCompanyInfo: TGroupBox
          Left = 288
          Top = 8
          Width = 305
          Height = 257
          Caption = 'Company location'
          TabOrder = 1
          object Label20: TLabel
            Left = 8
            Top = 16
            Width = 68
            Height = 13
            Caption = '&Street address'
            FocusControl = eBusAddr
          end
          object Label21: TLabel
            Left = 8
            Top = 88
            Width = 17
            Height = 13
            Caption = '&City'
            FocusControl = eBusCity
          end
          object Label22: TLabel
            Left = 8
            Top = 128
            Width = 78
            Height = 13
            Caption = 'State / &Province'
            FocusControl = eBusState
          end
          object Label23: TLabel
            Left = 8
            Top = 168
            Width = 84
            Height = 13
            Caption = '&ZIP / Postal code'
            FocusControl = eBusZIP
          end
          object Label24: TLabel
            Left = 8
            Top = 208
            Width = 36
            Height = 13
            Caption = 'Co&untry'
            FocusControl = eBusCountry
          end
          object eBusAddr: TMemo
            Left = 8
            Top = 32
            Width = 289
            Height = 49
            ScrollBars = ssVertical
            TabOrder = 0
          end
          object eBusCity: TEdit
            Left = 8
            Top = 104
            Width = 289
            Height = 21
            TabOrder = 1
          end
          object eBusState: TEdit
            Left = 8
            Top = 144
            Width = 289
            Height = 21
            TabOrder = 2
          end
          object eBusZIP: TEdit
            Left = 8
            Top = 184
            Width = 289
            Height = 21
            TabOrder = 3
          end
          object eBusCountry: TEdit
            Left = 8
            Top = 224
            Width = 289
            Height = 21
            TabOrder = 4
          end
        end
        object gbCompany: TGroupBox
          Left = 8
          Top = 8
          Width = 273
          Height = 257
          Caption = 'Company information'
          TabOrder = 0
          object Label7: TLabel
            Left = 8
            Top = 16
            Width = 75
            Height = 13
            Caption = 'Company &Name'
            FocusControl = eCompany
          end
          object Label25: TLabel
            Left = 8
            Top = 56
            Width = 36
            Height = 13
            Caption = '&Job title'
            FocusControl = eJobTitle
          end
          object Label26: TLabel
            Left = 8
            Top = 96
            Width = 55
            Height = 13
            Caption = '&Department'
            FocusControl = eBusDept
          end
          object Label27: TLabel
            Left = 8
            Top = 146
            Width = 60
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = 'O&ffice'
            FocusControl = eBusOffice
          end
          object Label28: TLabel
            Left = 8
            Top = 174
            Width = 60
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = 'P&hone'
            FocusControl = eBusPhone
          end
          object Label29: TLabel
            Left = 8
            Top = 202
            Width = 60
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = 'Fa&x'
            FocusControl = eBusFax
          end
          object Label30: TLabel
            Left = 8
            Top = 230
            Width = 60
            Height = 13
            Alignment = taRightJustify
            AutoSize = False
            Caption = 'P&ager'
            FocusControl = eBusPager
          end
          object eCompany: TEdit
            Left = 8
            Top = 32
            Width = 257
            Height = 21
            TabOrder = 0
          end
          object eJobTitle: TEdit
            Left = 8
            Top = 72
            Width = 257
            Height = 21
            TabOrder = 1
          end
          object eBusDept: TEdit
            Left = 8
            Top = 112
            Width = 257
            Height = 21
            TabOrder = 2
          end
          object eBusOffice: TEdit
            Left = 72
            Top = 142
            Width = 192
            Height = 21
            TabOrder = 3
          end
          object eBusPhone: TEdit
            Left = 72
            Top = 170
            Width = 192
            Height = 21
            TabOrder = 4
          end
          object eBusFax: TEdit
            Left = 72
            Top = 198
            Width = 192
            Height = 21
            TabOrder = 5
          end
          object eBusPager: TEdit
            Left = 72
            Top = 226
            Width = 192
            Height = 21
            TabOrder = 6
          end
        end
        object eBusPage: TEdit
          Left = 224
          Top = 280
          Width = 289
          Height = 21
          TabOrder = 2
        end
        object bVisitBusPage: TButton
          Left = 520
          Top = 278
          Width = 75
          Height = 25
          Caption = '&Go'
          TabOrder = 3
          OnClick = bVisitBusPageClick
        end
      end
      object tsTemplate: TTabSheet
        Tag = 101
        Caption = 'New message'
        object lTemplate: TLabel
          Left = 8
          Top = 40
          Width = 44
          Height = 13
          Caption = '&Template'
          Enabled = False
          FocusControl = eTemplate
        end
        object cbTemplate: TCheckBox
          Left = 8
          Top = 16
          Width = 409
          Height = 17
          Caption = '&Use a specific template for new messages'
          TabOrder = 0
          OnClick = cbTemplateClick
        end
        object eTemplate: TMemo
          Left = 8
          Top = 56
          Width = 585
          Height = 241
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Courier New'
          Font.Style = []
          ParentFont = False
          PopupMenu = mPop
          ScrollBars = ssBoth
          TabOrder = 1
          WordWrap = False
        end
        object Button2: TButton
          Left = 488
          Top = 16
          Width = 105
          Height = 25
          Caption = '&Macros'
          TabOrder = 2
          OnClick = bMacrosClick
        end
      end
      object tsReply: TTabSheet
        Tag = 102
        Caption = 'Reply'
        object lReply: TLabel
          Left = 8
          Top = 40
          Width = 44
          Height = 13
          Caption = '&Template'
          Enabled = False
          FocusControl = eReply
        end
        object cbReply: TCheckBox
          Left = 8
          Top = 16
          Width = 409
          Height = 17
          Caption = '&Use a specific template for replies'
          TabOrder = 0
          OnClick = cbReplyClick
        end
        object eReply: TMemo
          Left = 8
          Top = 56
          Width = 585
          Height = 241
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Courier New'
          Font.Style = []
          ParentFont = False
          PopupMenu = mPop
          ScrollBars = ssBoth
          TabOrder = 1
          WordWrap = False
        end
        object Button1: TButton
          Left = 488
          Top = 16
          Width = 105
          Height = 25
          Caption = '&Macros'
          TabOrder = 2
          OnClick = bMacrosClick
        end
      end
      object tsForward: TTabSheet
        Tag = 103
        Caption = 'Forward'
        object lForward: TLabel
          Left = 8
          Top = 40
          Width = 44
          Height = 13
          Caption = '&Template'
          Enabled = False
          FocusControl = eTemplate
        end
        object cbForward: TCheckBox
          Left = 8
          Top = 16
          Width = 409
          Height = 17
          Caption = '&Use a specific template for forwarding messages'
          TabOrder = 0
          OnClick = cbForwardClick
        end
        object eForward: TMemo
          Left = 8
          Top = 56
          Width = 585
          Height = 241
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Courier New'
          Font.Style = []
          ParentFont = False
          PopupMenu = mPop
          ScrollBars = ssBoth
          TabOrder = 1
          WordWrap = False
        end
        object bMacros: TButton
          Left = 488
          Top = 16
          Width = 105
          Height = 25
          Caption = '&Macros'
          TabOrder = 2
          OnClick = bMacrosClick
        end
      end
      object tsCert: TTabSheet
        Caption = 'Certificates'
        object CertList: TListView
          Left = 8
          Top = 8
          Width = 585
          Height = 217
          Columns = <
            item
              Caption = 'Issued To'
              Width = 180
            end
            item
              Caption = 'Issued By'
              Width = 180
            end
            item
              Caption = 'Expires'
              Width = 120
            end
            item
              Caption = 'Root'
              Width = 81
            end>
          ColumnClick = False
          MultiSelect = True
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
          OnDblClick = CertListDblClick
        end
        object bImport: TButton
          Left = 8
          Top = 240
          Width = 130
          Height = 25
          Caption = '&Import...'
          TabOrder = 1
          OnClick = bImportClick
        end
        object bView: TButton
          Left = 144
          Top = 240
          Width = 130
          Height = 25
          Caption = '&View'
          TabOrder = 2
          OnClick = bViewClick
        end
        object bDelete: TButton
          Left = 144
          Top = 272
          Width = 130
          Height = 25
          Caption = '&Delete'
          TabOrder = 6
          OnClick = bDeleteClick
        end
        object bExport: TButton
          Left = 8
          Top = 272
          Width = 130
          Height = 25
          Caption = '&Export...'
          TabOrder = 5
          OnClick = bExportClick
        end
        object bRequest: TButton
          Left = 280
          Top = 272
          Width = 130
          Height = 25
          Caption = '&Request...'
          TabOrder = 7
          OnClick = bRequestClick
        end
        object bGenerate: TButton
          Left = 280
          Top = 240
          Width = 130
          Height = 25
          Caption = 'Generate...'
          TabOrder = 3
          OnClick = bGenerateClick
        end
        object bResetSigners: TButton
          Left = 416
          Top = 240
          Width = 177
          Height = 25
          Caption = 'Reset signers...'
          TabOrder = 4
          OnClick = bResetSignersClick
        end
      end
      object tsMemo: TTabSheet
        Caption = 'Other'
        object lMemo: TLabel
          Left = 8
          Top = 96
          Width = 29
          Height = 13
          Caption = 'Memo'
          FocusControl = eMemo
        end
        object eCharset: TComboBox
          Left = 424
          Top = 16
          Width = 169
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 1
        end
        object cbCharset: TCheckBox
          Left = 8
          Top = 18
          Width = 409
          Height = 17
          Caption = '&When writing messages, always use character set:'
          TabOrder = 0
          OnClick = cbCharsetClick
        end
        object eMemo: TMemo
          Left = 12
          Top = 112
          Width = 577
          Height = 185
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Courier New'
          Font.Style = []
          Lines.Strings = (
            '')
          ParentFont = False
          ScrollBars = ssVertical
          TabOrder = 4
        end
        object cbFavourite: TCheckBox
          Left = 8
          Top = 40
          Width = 577
          Height = 17
          Caption = '&Add this address to the instant address (Favourite) pop-up menu'
          TabOrder = 2
        end
        object cbAddSecondary: TCheckBox
          Left = 8
          Top = 64
          Width = 577
          Height = 17
          Caption = 'Automatically add secondary addresses to the &BCC field'
          TabOrder = 3
        end
      end
    end
  end
  object pnAdd: TPanel
    Left = 0
    Top = 0
    Width = 610
    Height = 33
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    Visible = False
    object lAdd: TLabel
      Left = 8
      Top = 10
      Width = 75
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'En&try'
      FocusControl = cbAdd
    end
    object cbAdd: TComboBox
      Left = 88
      Top = 6
      Width = 345
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      Sorted = True
      TabOrder = 0
      OnChange = cbAddChange
    end
    object bAdd: TButton
      Left = 448
      Top = 4
      Width = 153
      Height = 25
      Caption = '&Add to address book'
      TabOrder = 1
      OnClick = bAddClick
    end
  end
  object pnButtons: TPanel
    Left = 0
    Top = 385
    Width = 610
    Height = 47
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object lABook: TLabel
      Left = 8
      Top = 0
      Width = 69
      Height = 13
      Caption = 'Address Book:'
    end
    object bOK: TButton
      Left = 328
      Top = 14
      Width = 83
      Height = 25
      Caption = '&OK'
      Default = True
      ModalResult = 1
      TabOrder = 1
      OnClick = bOKClick
    end
    object bCancel: TButton
      Left = 424
      Top = 14
      Width = 83
      Height = 25
      Cancel = True
      Caption = 'Cancel'
      ModalResult = 2
      TabOrder = 2
    end
    object bHelp: TButton
      Left = 520
      Top = 14
      Width = 81
      Height = 25
      Caption = 'Help'
      TabOrder = 3
      OnClick = bHelpClick
    end
    object cbABook: TComboBox
      Left = 8
      Top = 16
      Width = 265
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
    end
  end
  object mPop: TPopupMenu
    OnPopup = mPopPopup
    Left = 568
    Top = 344
    object mmText: TMenuItem
      Caption = '&Text'
    end
    object mmSender: TMenuItem
      Caption = '&Sender info'
    end
    object mmRece: TMenuItem
      Caption = '&Recipient info'
    end
    object mmDef: TMenuItem
      Caption = '&Pre-defined fields'
    end
    object mmMisc: TMenuItem
      Caption = '&Miscellaneous'
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mtAttachFile: TMenuItem
      Caption = '&Attach a file...'
      ShortCut = 32801
      OnClick = mtAttachFileClick
    end
    object mtInclude: TMenuItem
      Tag = 1
      Caption = '&Include template file...'
      ShortCut = 32813
      OnClick = mtAttachFileClick
    end
    object mtPut: TMenuItem
      Tag = 2
      Caption = 'Put text file...'
      OnClick = mtAttachFileClick
    end
    object mtfCookie: TMenuItem
      Tag = 3
      Caption = '&Cookie from a file...'
      OnClick = mtAttachFileClick
    end
    object Popup1: TMenuItem
      Caption = 'Popup'
      ShortCut = 32889
      Visible = False
      OnClick = Popup1Click
    end
  end
  object PhotoPopup: TPopupMenu
    Left = 536
    Top = 344
    object mpClearPhoto: TMenuItem
      Caption = 'Clear Photo'
      ShortCut = 49219
      OnClick = mpClearPhotoClick
    end
  end
end